Loading the neccesary libraries

library(readr)        # load csv
library(HH)           # likert plotting

First, we load the tables.

science <- read_csv("../data/cleaned/science.csv")
experience <- read_csv("../data/cleaned/experience.csv")
efficiency <- read_csv("../data/cleaned/efficiency.csv")

We start by plotting the science table.

likert(Measures ~ .,
       data=science,
       as.percent=TRUE,
       positive.order=TRUE,
       main=list("Valore cada una de las siguientes cuestiones relacionadas con su opinión sobre la ciencia", cex=3),
       rightAxis=F,
       ylab=NULL,
       xlab=list("Percent", cex=2),
       auto.key=list(cex=2),
       scales=list(y=list(cex=2),
                            xlab=list(cex=2)
                   )
       )

Now the experience table.

likert(Measures ~ .,
       data=experience,
       as.percent=TRUE,
       positive.order=TRUE,
       main=list("Marque la opción que mejor represente su conocimiento y experiencia con cada práctica en los últimos 5 (cinco) años", cex=3),
       rightAxis=F,
       ylab=NULL,
       xlab=list("Percent", cex=2),
       auto.key=list(cex=2),
       scales=list(y=list(cex=2),
                            xlab=list(cex=2)
                   )
       )

Finally, the efficiency table.

likert(Measures ~ .,
       data=efficiency,
       as.percent=TRUE,
       positive.order=TRUE,
       main=list("Elija la opción que mejor represente cuán importante considera que es cada una de las siguientes 
                 prácticas para mejorar la calidad y eficiencia de las investigaciones en su campo", cex=3),
       rightAxis=F,
       ylab=NULL,
       xlab=list("Percent", cex=2),
       auto.key=list(cex=2),
       scales=list(y=list(cex=2),
                            xlab=list(cex=2)
                   )
       )